Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/scroll1/scroll1.frm

Text File | 1995-05-07 | 4KB | 174 lines

VERSION 2.00
Begin Form Form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "RGB Function Color Demonstration"
   ClientHeight    =   3990
   ClientLeft      =   1980
   ClientTop       =   1995
   ClientWidth     =   5715
   Height          =   4680
   Icon            =   SCROLL1.FRX:0000
   Left            =   1920
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3990
   ScaleWidth      =   5715
   Top             =   1365
   Width           =   5835
   Begin PictureBox picPicture1
      Height          =   855
      Left            =   1080
      ScaleHeight     =   825
      ScaleWidth      =   4065
      TabIndex        =   9
      Top             =   2040
      Width           =   4095
   End
   Begin CommandButton cmdClose
      Caption         =   "&Close"
      Height          =   495
      Left            =   4320
      TabIndex        =   6
      Top             =   3360
      Width           =   1215
   End
   Begin HScrollBar hsbBlue
      Height          =   255
      LargeChange     =   35
      Left            =   1080
      Max             =   255
      SmallChange     =   2
      TabIndex        =   5
      Top             =   1560
      Width           =   4095
   End
   Begin HScrollBar hsbGreen
      Height          =   255
      LargeChange     =   35
      Left            =   1080
      Max             =   255
      SmallChange     =   2
      TabIndex        =   4
      Top             =   960
      Width           =   4095
   End
   Begin HScrollBar hsbRed
      Height          =   255
      LargeChange     =   30
      Left            =   1080
      Max             =   255
      SmallChange     =   2
      TabIndex        =   3
      Top             =   360
      Width           =   4095
   End
   Begin Label lbl_HexColorNumber
      Height          =   255
      Left            =   1320
      TabIndex        =   8
      Top             =   3360
      Width           =   2055
   End
   Begin Label Label4
      Caption         =   "Hex Color Number:"
      Height          =   495
      Left            =   240
      TabIndex        =   7
      Top             =   3120
      Width           =   855
   End
   Begin Label Label3
      Caption         =   "Blue"
      Height          =   255
      Left            =   240
      TabIndex        =   2
      Top             =   1560
      Width           =   735
   End
   Begin Label Label2
      Caption         =   "Green"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   960
      Width           =   615
   End
   Begin Label Label1
      Caption         =   "Red"
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   615
   End
   Begin Menu menuAboutBox
      Caption         =   "&About"
   End
End
Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer

Sub cmdClose_Click ()
    End
End Sub

Sub DoColor ()
    lbl_HexColorNumber.Caption = "&&H" + Hex$(RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value))
    picPicture1.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
End Sub

Sub Form_Load ()
    'Center form
    Left = (Screen.Width - Width) / 2
    Top = (Screen.Height - Height) / 2

End Sub

Sub hsbBlue_Change ()
    hsbBlue_Scroll
End Sub

Sub hsbBlue_Scroll ()
    DoColor
End Sub

Sub hsbGreen_Change ()
    hsbGreen_Scroll
End Sub

Sub hsbGreen_Scroll ()
    DoColor
End Sub

Sub hsbRed_Change ()
    hsbRed_Scroll
End Sub

Sub hsbRed_Scroll ()
    DoColor
End Sub

Sub menuAboutBox_Click ()
    About2.Caption = "RGB Function Color Demo"
    About2.Label2.Caption = "RGB Color Demo"
    About2.Label1.Caption = "Version 1.1"

     About2.Show modal
End Sub

Sub menuHelp_Click ()
    'This is primitive But it works
    'Path$ = App.Path
    'If Right$(Path$, 1) <> "\" Then
    '    Path$ = Path$ + "\"
    'End If

    HelpFile$ = "VB\VB.HLP"
    'HelpFile$ = Path$ + "VB.HLP"
    'Directory$ = Dir$("VB", 16)
    Stop
    wCmd = HELP_INDEX
    dwData = HELP_CONTEXT
    Temp% = WinHelp(hWnd, HelpFile$, wCmd, dwData)
End Sub